home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Files 2 / The Wildcat Files 2 (Arsenal Computer).ISO / wccode / outfrom.wcc < prev    next >
Text File  |  1994-12-09  |  706b  |  24 lines
  1. 'This subroutine is a drop in one that prints text out from the center.
  2. 'The parameters are as follows:
  3. '~
  4. 'Line    = Line on screen where text is to be printed
  5. 'What    = String to print
  6. 'Stcolor = Color of the string to print in @ code format
  7.  
  8. sub outfromcenter (line as integer, what as string, stcolor as string)
  9.   dim l as integer
  10.   what = what + " "
  11.   what = left (what,int(len(what)/2)*2)
  12.   print "@NOPAUSE@"+stcolor
  13.   for l = 1 to (len(what)/2)
  14.     delay .02
  15.     locate (line,40-l)
  16.     print left(what,l);right(what,l)
  17.   next l
  18. end sub
  19.  
  20. 'The following is an example of this subroutine.
  21.  
  22. outfromcenter (10,"This is a test of the emergency broadcast system","@1F@")
  23. waitenter
  24.